Namespace model.cas

Public Class Contr_Serv_Prm
        Private _cos_action As String
        Private _cos_spcode As String
        Private _cos_sncode As String
        Private _prm_no As String
        Private _prm_id As String
        Private _complex_no As String
        Private _complex_level As String
        Private _sibling_no As String
        Private _parent_no As String
        Private _multi_values As String
        Private _value_seqno As String
        Private _value As String


        Function Write() As String

            Dim strn, pp, p As String
            pp = """"
            p = ""","""
            strn = "[CONTR_SERV_PRM.WRITE(" + pp
            strn = strn + cos_action + p
            strn = strn + cos_spcode + p
            strn = strn + cos_sncode + p
            strn = strn + prm_no + p
            strn = strn + prm_id + p
            strn = strn + complex_no + p
            strn = strn + complex_level + p
            strn = strn + sibling_no + p
            strn = strn + parent_no + p
            strn = strn + multi_values + p
            strn = strn + value_seqno + p
            strn = strn + _value + pp + ")]"
            Return strn
        End Function


        Public Property cos_action() As String
            Get
                Return _cos_action
            End Get
            Set(ByVal Value As String)
                _cos_action = Value
            End Set
        End Property
        Public Property cos_spcode() As String
            Get
                Return _cos_spcode
            End Get
            Set(ByVal Value As String)
                _cos_spcode = Value
            End Set
        End Property

        Public Property cos_sncode() As String
            Get
                Return _cos_sncode
            End Get
            Set(ByVal Value As String)
                _cos_sncode = Value
            End Set
        End Property

        Public Property prm_no() As String
            Get
                Return _prm_no
            End Get
            Set(ByVal Value As String)
                _prm_no = Value
            End Set
        End Property
        Public Property prm_id() As String
            Get
                Return _prm_id
            End Get
            Set(ByVal Value As String)
                _prm_id = Value
            End Set
        End Property

        Public Property complex_no() As String
            Get
                Return _complex_no
            End Get
            Set(ByVal Value As String)
                _complex_no = Value
            End Set
        End Property
        Public Property complex_level() As String
            Get
                Return _complex_level
            End Get
            Set(ByVal Value As String)
                _complex_level = Value
            End Set
        End Property
        Public Property sibling_no() As String
            Get
                Return _sibling_no
            End Get
            Set(ByVal Value As String)
                _sibling_no = Value
            End Set
        End Property
        Public Property parent_no() As String
            Get
                Return _parent_no
            End Get
            Set(ByVal Value As String)
                _parent_no = Value
            End Set
        End Property
        Public Property multi_values() As String
            Get
                Return _multi_values
            End Get
            Set(ByVal Value As String)
                _multi_values = Value
            End Set
        End Property
        Public Property value_seqno() As String
            Get
                Return _value_seqno
            End Get
            Set(ByVal Value As String)
                _value_seqno = Value
            End Set
        End Property

        Public Property value() As String
            Get
                Return _value
            End Get
            Set(ByVal Value As String)
                _value = Value
            End Set
        End Property


End Class

End Namespace


